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EDTSCHMREPOS = reposition to a buffer 18-Sep-1984 99:93:01 VAX-11 Bliss-32 V4.0 
14-Sep-1984 12:22:42 DISKSVMS 


ZTITLE ‘EDTSCHMREPOS - reposition to a buffer’ 
MODULE EDTSCHMREPOS ( ! Reposition to a buffer 
te = 'v04-000' ! File: CHMREPOS.BLI Edit: JBS1004 
= 


BEGIN 


RARER EAREAERERAAER ARERR AERA AREA ARETE ATER AEE EERAEERERRAEE EERE 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED. 


:# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF LICENSE AND WITH THE 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i ThanSFERAcOe” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
> pe A NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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aE 
' 
29 i eases dabesietiedea nila tetatiedh ihe inde liciaeseadeabibnaieadhiniieinenieiiaieiaaeenaiieniitndinninan 
9 ! 
0 
31 '+¢ 
3 FACILITY: EDT == The DEC Standard Editor 
34 ABSTRACT: 
36 i This module repositions to a buffer position previously 
it t4 saved in a position block. 
0039 ENVIRONMENT: Runs at any access mode - AST reentrant 
9041 ) AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
0043 MODIFIED BY: 
boe8 i 1-001 = Original. DJS 04-Feb-1981. This module was created by 
46 0046 ! extract tne the routine EDTSS$RPOS from module CHANGE.BLI. 
47 0047 ! 1-002 - Regularize headers. JBS 27-Feb-1981 
48 0048 ! 1-003 - Fix the module name. JBS 03-Mar-1981 ; 
$7 sie 1-004 - Remove EDT$$G_LN_NO for new screen update logic. JBS 29-Sep-1982 
51 0051 : 


ss-3 shes Pa 
MASTER: CEDT.SRCJCHMREPOS.BLI;1 
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EDTSCHMREPOS EDTSCHMREPOS = reposition to a buffer 16-Sep-1984 00:09:0 VAX-11 Bliss-32 V4.0-74 Page 2 
FO4+500 Declarations ° 1o-$00-1 382 99:93:23 ST EKSUMGHASTERSCEDT SRCTCHMREPOS.BLIC?” (2) 


3SBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSRPOS : NOVALUE; ! Restore the saved buffer position 


REQUIRE “EDTSRC:EDTREQ'; 


POAAAAX 
FEISS 
a a a ed od od od dd 
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~o 


40 1! 
70 1 i MACROS: 
ak | leg 
r 0645 EQUATED SYMBOLS: 
fo Me 
78 0649 1 | OWN STORAGE: 
79 0650 1: 
80 0651 NONE 
8 0688 ; EXTERNAL REFERENCES: 
84 0655 i In the routine 


| 
| 
| 
| 
: 
: INCLUDE FILES: 
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EDTSCHMREPOS EDTSSRPOS = reposition to a buffer 1h-56 -1984 :09:0 VAX-11 Bliss-32 v4. 
Oe 500 Declarations r 12-8 08- 1 Oke 99:95:23 DISKSVMSMASTER: CEDT 


3 § 1 ZTITLE ‘EDTSSRPOS = reposition to a buffer’ 

: «88 3 1 GLOBAL ROUTINE EDTSSRPOS ( ! Reposition to a buffer 

§ 9 1 & ! Pointer to position block 
; 0 1 ) : NOVALUE = 

> 91 661 1 

3 95 ¢ 1 lee 

; 93 63 i FUNCTIONAL DESCRIPTION: 

: 95 665 This routine re-positions to the buffer postion saved by EDTS$SAV_BUFPOS . 
; $7 Os? | FORMAL PARAMETERS: 

F 2 0669 } POS Pointer to the saved position block 

; 101 ae 1 IMPLICIT INPUTS: 

: 198 0678 EDTS$$A_CUR_BUF 

; 105 0675 { IMPLICIT OUTPUTS: 

: 109 O67? EDTSSA_CUR_BUF 

: 109 0679 1 | ROUTINE VALUE: 

: 110 0680 1! 

ante best i one 

: 118 boas 1 ' SIDE EFFECTS: 

: 116 0684 1! 

: 115 0685 1: NONE 

>: 116 0686 1! 

: 117 0687 1 i-- 

: 118 0688 1 

>: 119 0689 BEGIN 

: 139 $691 MAP 

; 2 069 POS : REF POS_BLOCK; 

126 0694 EXTERNAL ROUTINE 

s Yeo 0695 EDTSSRPL_CHGDLN, ! Declare current Line as changed 
3 ' $ bes EDTSSGET_TXTLN; ' Get current Line in Line buffer 
: 128 698 EXTERNAL 

3 1$6 343 EDTSS$A_CUR_BUF : REF TBCB_BLOCK; ! The current buffer tbcb 

: 131 701 2 6 

: 136 ? ; ; Update current Line if necessary. 

; 1 , 4 EDTSSRPL_CHGDLN (); 

: 13 , 6 Reposition the text buffer. 

: 138 708 EDTSSCPY_MEM (POS_SIZE, .POS, .EDTS$A_CUR_BUF); 

; re rg Get the new Line in the buffer. 

: 142 712 EDTSS$GET_TXTLN (); 


Page 
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Declarations 2:42 DISKSVMSMASTER: cebt. sre CHMREPOS.BLI;1 (3). 


; 143 0713 (1 END; ! of routine EDTSRPOS 


-TITLE EDTSCHMREPOS EDT$$RPOS = reposition to a buffe 
-IDENT \V04-000\ 


~-EXTRN EDTSS$RPL_CHGDLN 
-EXTRN EDTSSGET_TXTLN, EDTSS$A_CUR_BUF 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


003c¢ 00000 SENTRY EDTSSRPOS Save ALP R3,R4,R5 : 0658 

000000006 99 00 FB 9002 CALLS EDTS DTSShPL + 0704 
0 So eee. 2000 Moves EDfséh AncuR_6Ot ‘ahaa 
000000006 00 0 FB a9015 CALLS #0, EDTS$$GET_TXTLN 3 0712 


; Routine Size: 29 bytes, Routine Base: _EDTSCODE + 0000 


o7146 4 | 
0715 1 !<BLF/PAGE> 
| 
| 
| 


esses 
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147 orig 1 END ! of module EDTSCHMREPOS 
148 4 1 
149 718 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 29 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eoosssse Syabe(s ccoceece Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA28:CEDT.SRCJEDT.L32;1 377 33 8 40 a 
$255$DUA 8; EDT.SRCJPSECTS.L32;1 2 1 50 7 0:00.1 
COMMAND QUALIFIERS 
DISS /CMECK MCE LELD. INE TIAL OPIATE) /HOTRACEBACK/L 1Se4. 1581 CHHREPOS/08J908)5: CHAREPOS MSRC$: CHMREPOS .BLI/UPDATE=(ENH$: CHMR 
Size: 29 ode .*, + 0 data bytes 
Run be 60:09. 
Elapsed T 310.8 
thy fin: $f6 
RoneneesCPe-wras 12901 
Used: 59 pages 
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